home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / giochi / muiempir.lha / source / muigui.c < prev   
C/C++ Source or Header  |  1995-07-23  |  4KB  |  146 lines
  1. #include "defines.h"
  2. #include "guidefines.h"
  3. #include "struct.h"
  4. #include "externalprototypes.h"
  5.  
  6. extern ULONG signals;
  7. extern APTR app,tx1;
  8. extern struct MsgPort *client;
  9. ULONG guiinput(void);
  10. int guiset(struct MsgPort *client,LONG datasize,LONG object,LONG method,LONG data); 
  11. int guiget(struct MsgPort *client,LONG datatype,LONG object,LONG method,APTR data); 
  12. int guiDoMethod(struct MsgPort *client, LONG message,LONG pointerlength,LONG object,ULONG data,...);
  13. extern LONG guiRequest(LONG);
  14. void clientsetup(struct MsgPort *);
  15. int  changeplayer(void);
  16. void clientsetup(struct MsgPort *client) {return;}
  17.  
  18. ULONG guiinput ()
  19. {
  20.     
  21.   return(DoMethod(app,MUIM_Application_Input,&signals));
  22.  
  23. }
  24.  
  25. int guiset(struct MsgPort *client,LONG datasize,LONG object,LONG method,LONG data) {
  26.  
  27. LONG address;
  28. APTR *pointer;
  29.   
  30.   if (!object) return(0);
  31.   address = (LONG)&tx1;
  32.   
  33.   
  34.   address += object*sizeof(LONG); /* first object */     
  35.   pointer  = (APTR *)address;
  36.   set(*pointer,method,data);
  37.     
  38.   return(0);
  39. }  
  40.  
  41. int guiget(struct MsgPort *client,LONG datatype,LONG object,LONG method,APTR data) {
  42.  
  43. LONG address;
  44. APTR *pointer;
  45.   
  46.   if (!object) return (0);
  47.   address = (LONG)&tx1;
  48.   
  49.   address += object*sizeof(LONG); /* first object */     
  50.   pointer  = (APTR *)address;
  51.   get(*pointer,method,data);
  52.     
  53.   return(0);
  54. } 
  55.  
  56. int guiDoMethod(struct MsgPort *client, LONG message, LONG pointerlength,LONG object,ULONG data,...) {
  57.  
  58. LONG address;
  59. APTR *pointer;
  60.  
  61.   if (!object) return (0);
  62.   address = (LONG)&tx1;
  63.  
  64.   address += object*sizeof(LONG); /* first object */
  65.   pointer  = (APTR *)address;
  66.   DoMethodA(*pointer,(Msg)&data); 
  67.   
  68.   return(0);
  69. }
  70.   
  71. int changeplayer() {
  72.   
  73.   int x,n,m;
  74.   char *p;
  75.   struct TagItem *tag,*tstate;
  76.   struct ship *tempship;
  77.   struct player *player;
  78.   struct tagchar *cargo = NULL,cargotag;
  79.   
  80.   if (!client) cleandisplay();
  81.   
  82.   if ((playernumber > 1) && (client == 0)) {
  83.     guiset(client,INT,WI_MOVEMENT,MUIA_Window_Open,FALSE);
  84.     guiset(client,INT,WI_FLEETCARGO,MUIA_Window_Open,FALSE);
  85.     guiset(client,INT,WI_MAP,MUIA_Window_Open,FALSE);
  86.   }
  87.   currentfleet = currentplayer->nextfleet;
  88.   for (x=0;x<planetnumber;x++) {
  89.     n=planetlist[currentplayer->id][x].x;
  90.     m=planetlist[currentplayer->id][x].y;
  91.     p = planetlist[currentplayer->id][x].name;
  92.     SECTOR[n][m].PLANET=&planetlist[currentplayer->id][x];
  93.     guiDoMethod(client,GUI_DOMETHODGET5,SMALLSTRING,LV3,MUIM_List_Insert,&p,1,MUIV_List_Insert_Bottom);
  94.     }
  95.   x = findplanet(-1,1);
  96.   
  97.   currentplayer->currentplanet = &planetlist[currentplayer->id][x];
  98.   fromx = planetlist[0][x].x;
  99.   fromy = planetlist[0][x].y;
  100.   
  101.   if (x>=0) guiset(client,INT,BT_PURCHASE,MUIA_Disabled,FALSE);
  102.   else guiset(client,INT,BT_PURCHASE,MUIA_Disabled,TRUE);
  103.   
  104.   purchase(x);
  105.   displayplanet(x);
  106.   selectplanets();
  107.   display(currentplayer);
  108.   fleetlist(currentplayer->nextfleet);
  109.   displayfleet(currentplayer->nextfleet);
  110.   displaymessages(currentplayer);
  111.   if (currentplayer->next==NULL) guiset(client,SMALLSTRING,BT_NEXTPLAYER,MUIA_Text_Contents,"End Turn");
  112.   else guiset(client,SMALLSTRING,BT_NEXTPLAYER,MUIA_Text_Contents,"Next Player");
  113.      
  114.   /* insert ship information */
  115.   tstate = currentplayer->fleettag;
  116.   guiDoMethod(client,GUI_DOMETHODGET3,0,LV11,MUIM_List_Clear,TRUE); 
  117.   while (tag = NextTagItem (&tstate)) {
  118.     tempship = (struct ship *) tag->ti_Data;
  119.     guiDoMethod(client,GUI_DOMETHODGET5,SHIP,LV11,MUIM_List_Insert,&tempship,1,MUIV_List_Insert_Top);
  120.     } 
  121.   
  122.   guiset(client,INT,LV18,MUIA_List_Quiet,TRUE);
  123.   guiDoMethod(client,GUI_DOMETHODGET3,0,LV18,MUIM_List_Clear,TRUE);
  124.   player = headplayer;  
  125.   while (player) {
  126.      if (currentplayer->id != player->id) {
  127.        strcpy(cargotag.name,player->empire);
  128.        cargotag.tagdata = player->id;
  129.        cargotag.tagname = (ULONG) player;
  130.        cargo = &cargotag;
  131.        guiDoMethod(client,GUI_DOMETHODGET5,CARGO,LV18,MUIM_List_Insert,&cargo,1,MUIV_List_Insert_Bottom);
  132.      }
  133.      player = player->next;  
  134.   }
  135.   guiset(client,INT,LV18,MUIA_List_Quiet,FALSE);
  136.   if(!currentfleet) guiset(NULL,INT,BT_MOVEMENT,MUIA_Disabled,TRUE);
  137.   else guiset(NULL,INT,BT_MOVEMENT,MUIA_Disabled,FALSE);  
  138.   guiset(NULL,INT,WI_MAINWINDOW,MUIA_Window_Open,TRUE);
  139.   guiset(NULL,INT,WI_MESSAGES,MUIA_Window_Open,TRUE);
  140.   guiDoMethod(NULL,GUI_DOMETHODGET3,0,MYOBJ, MUIM_MyObjRedraw,TRUE);
  141.  
  142.   guiRequest(9);  
  143.   setdisplay(); 
  144.   return(0);
  145. }
  146.